home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 09 Application Software / GC1.SDA / MENU (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  535 b   |  20 lines

  1. 10 POKE53281,1:POKE53280,13:POKE646,0:PRINT"[147]SELECT BY LETTER":DN=PEEK(186)
  2. 20 PRINT" A MAIN PROGRAM"
  3. 40 PRINT" B LIST LOCATIONS"
  4. 60 PRINT" C NAME COUNTER"
  5. 80 PRINT" D OTHER PROGRAMS"
  6. 90 PRINT" E QUIT"
  7. 150 PRINT"CHOICE?"
  8. 160 GETA$:IFA$=""THEN160
  9. 170 IFA$="A"THENB$="MAIN PROGRAM"
  10. 190 IFA$="B"THENB$="LIST LOCATIONS"
  11. 210 IFA$="C"THENB$="NAME COUNTER"
  12. 230 IFA$="D"THENB$="LOAD AND RUN"
  13. 240 IFA$="E"THENEND
  14. 310 IFB$=""THEN160
  15. 320 IR=PEEK(53281):SC=PEEK(646)
  16. 330 PRINT"[147]":POKE646,IR:PRINT"LOAD"CHR$(34);
  17. 340 POKE646,0:PRINTB$;:POKE646,IR:PRINTCHR$(34);:PRINT",DN"
  18. 345 PRINT"POKE646,SC:RUN"
  19. 350 POKE631,13:POKE632,13:POKE198,2:PRINT"":END
  20.